home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe048.dms / pe048.adf / Simon.AMOS / Simon.amosSourceCode < prev   
AMOS Source Code  |  1990-08-11  |  3KB  |  110 lines
  1. Screen Open 0,320,200,16,Lowres
  2. Locate 5,2 : Print "DO YOU WANT INSTRUCTIONS."
  3. Locate 5,4 : Print "TYPE Y or N THEN HIT RETURN."
  4. Input A$
  5. If A$="y" Then INST
  6. Load Iff "simon/simon.iff",1
  7. Load "simon/samples.abk"
  8. SP$="                                        "
  9. Global R,A,VAR$,M,H,K$,X1,Y1,SP$,X
  10. Dim ARRAY$(20)
  11. Shared ARRAY$()
  12. Dim VAR$(20)
  13. Shared VAR$()
  14. SC=10
  15. STAR:
  16. A=0 : 
  17. Paper 0 : Locate 1,7 : Print SP$
  18. Locate 7,7 : Print "  CLICK MOUSE TO BEGIN"
  19. MC: C=Mouse Click : If C=0 Then Goto MC
  20. Locate 7,7 : Print SP$
  21. Wait 100
  22. Repeat 
  23. Randomize Timer
  24. R=Rnd(3)+1
  25. If R=1 Then VAR$(A)="r" : FLASCOL
  26. If R=2 Then VAR$(A)="y" : FLASCOL
  27. If R=3 Then VAR$(A)="g" : FLASCOL
  28. If R=4 Then VAR$(A)="b" : FLASCOL
  29. For X=0 To A
  30. MPOS
  31. If ARRAY$(X)<>VAR$(X) Then WRONG : Goto AGO
  32. Next X
  33. Wait 60
  34. Inc A
  35. Locate 17,16 : Print A
  36. Until A=SC
  37. For X=1 To 10 : Sam Play 10,1,6000 : Wait 20 : Next X
  38. Locate 3,7 : Print "CONGRATULATIONS. YOU GOT";A;" RIGHT." : Locate 17,16 : Print "   " : SC=SC+10 : Wait 200 : Goto AGO
  39. End 
  40. AGO:
  41. Locate 1,7 : Print SP$
  42. Locate 3,7 : Paper 1 : Print "yes"; : Paper 0 : Print "  DO YOU WANT ANOTHER GO  "; : Paper 1 : Print " NO "
  43. M=0
  44. NW:
  45. 'X1=X Mouse : Y1=Y Mouse 
  46. 'Locate 1,1 : Print X1,Y1 : Goto NW
  47. M=Mouse Click
  48. If M=0 Then Goto NW
  49. X1=X Mouse : Y1=Y Mouse
  50. If X1>383 and X1<417 and Y1>99 and Y1<111 Then Cls : End 
  51. If X1>151 and X1<176 and Y1>99 and Y1<111 Then Goto STAR
  52. Goto NW
  53. '********************************************************
  54. Procedure FLASCOL
  55. For X=0 To A
  56.       If VAR$(X)="r" Then Bell 30 : Colour 3,$F00 : Wait 40 : Colour 3,$A00
  57.       If VAR$(X)="y" Then Bell 35 : Colour 6,$FF0 : Wait 40 : Colour 6,$AA0
  58.       If VAR$(X)="g" Then Bell 40 : Colour 7,$F0 : Wait 40 : Colour 7,$80
  59.       If VAR$(X)="b" Then Bell 45 : Colour 11,$F : Wait 40 : Colour 11,$A
  60. Wait 20
  61. Next X
  62. End Proc
  63. '********************************************************
  64. Procedure MPOS
  65. M=0
  66. MK:
  67. M=Mouse Click
  68. If M=0 Then Goto MK
  69. X1=X Mouse : Y1=Y Mouse
  70.    If X1>327 and X1<369 and Y1>154 and Y1<196 Then ARRAY$(X)="y" : Bell 35
  71.    If X1>254 and X1<306 and Y1>121 and Y1<145 Then ARRAY$(X)="g" : Bell 40
  72.    If X1>194 and X1<231 and Y1>154 and Y1<196 Then ARRAY$(X)="r" : Bell 30
  73.    If X1>244 and X1<316 and Y1>209 and Y1<241 Then ARRAY$(X)="b" : Bell 45
  74. End Proc
  75. '********************************************************
  76. Procedure WRONG
  77. Sam Play 13,1,2000
  78. Locate 1,7 : Print " WRONG! CLICK MOUSE TO SEE SEQUENCE "
  79. MC1: C=Mouse Click : If C=0 Then Goto MC1
  80. FLASCOL
  81. End Proc
  82. '********************************************************
  83. Procedure INST
  84. Cls 
  85. Print "WHEN THE GAME SCREEN HAS LOADED,PRESS "
  86. Print 
  87. Print "THE SPACE BAR TO BEGIN.WATCH THE FOUR"
  88. Print 
  89. Print "COLOURS ON THE CONSOLE.ONE OF THEM WILL"
  90. Print 
  91. Print "FLASH.USE THE MOUSE POINTER TO POINT ON"
  92. Print 
  93. Print "THE COLOUR THAT FLASHED AND PRESS THE"
  94. Print 
  95. Print "MOUSE BUTTON.IF YOU GUESSED THE CORRECT"
  96. Print 
  97. Print "COLOUR. THE SEQUENCE WILL BEGIN AGAIN"
  98. Print 
  99. Print "AND ADD ONE MORE COLOUR TO THE SEQUENCE"
  100. Print 
  101. Print "IF YOU GET THE SEQUENCE WRONG,THE GAME"
  102. Print 
  103. Print "WILL END AND YOU WILL BE ABLE TO SEE"
  104. Print 
  105. Print "THE CORRECT SEQUENCE."
  106. Print 
  107. Print 
  108. Print "   ***** PRESS ANY KEY TO PLAY.*****"
  109. Wait Key 
  110. End Proc